<% Dim intLunghezza intLunghezza = 200 Dim strSQL strSQL = "select datepart(dd,dateadd(dd,TProdotto.validita,TProdotto.datains)) as gscadenza, datepart(mm,dateadd(dd,TProdotto.validita,TProdotto.datains)) as mscadenza, datepart(yy,dateadd(dd,TProdotto.validita,TProdotto.datains)) as ascadenza, tcategoria.nome as categoria,ragione,email,web,tprodotto.descrizione,chiavi,prezzo,quantita,validita,segnalazioni,offerta from tprodotto inner join tcategoria on tcategoria.cod=tprodotto.cod_categoria where offerta=0 and tprodotto.cod="&Request.querystring("cod") Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = conn rs.CursorType = 0 rs.LockType = 1 rs.Source = strSQL rs.Open %>
       
  richieste prodotti    

finericerca.gif (147 byte) lente.gif (263 byte)

Cerca:

Tra:

 
Nome dell'azienda/società che cerca il prodotto:
   <%=rs("ragione") %>
Descrizione del prodotto:
   <%=rs("descrizione")%>
Sono disposto ad accettare fino ad un prezzo massimo di:
   <%=rs("prezzo")%>
Per la quantità di:
   <%=rs("quantita")%>
Questa richiesta e' valida fino al:
   <%=rs("gscadenza")%>/<%=rs("mscadenza")%>/<%=rs("ascadenza")%>
Sito web collegato:
   http://"><%= rs("web") %>
Per informazioni scrivere a:
   "><%= rs("email") %>